home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Creative Review 25
/
Creative-Review-CD-ROM-25.iso
/
pc
/
image
/
crmay97.dir
/
00277_Script_Main Handlers
< prev
next >
Wrap
Text File
|
1997-05-02
|
5KB
|
129 lines
on unPuppet actionList
repeat with i = 1 to the number of items of actionList
put value(item i of actionList) into actionItem
puppetSprite actionItem, false
end repeat
end unPuppet
on showObjects actionList
repeat with i = 1 to the number of items of actionList
put value(item i of actionList) into actionItem
set the visible of sprite actionItem to true
end repeat
end showObjects
on rollOver1 actionList
global dest
put the number of items of actionList into actionCount
repeat with i = 1 to (actionCount/2)
put value(item ((i*2)-1) of actionList) into actionItem
put item (i*2) of actionList into actionDest
if rollOver(actionItem) then
set the visible of sprite actionItem to true
put actionDest into dest
end if
end repeat
end rollOver1
on rollOver2 actionList
global dest
put the number of items of actionList into actionCount
repeat with i = 1 to (actionCount/3)
put value(item ((i*3)-2) of actionList) into actionItem1
put value(item ((i*3)-1) of actionList) into actionItem2
put item (i*3) of actionList into actionDest
if (rollOver(actionItem1) or rollOver(actionItem2)) then
set the visible of sprite actionItem1 to true
set the visible of sprite actionItem2 to true
put actionDest into dest
end if
end repeat
end rollOver2
on hideObjects actionList
repeat with i = 1 to the number of items of actionList
put value(item i of actionList) into actionItem
set the visible of sprite actionItem to false
end repeat
end hideObjects
on rollDisplay2 actionList
put the number of items of actionList into actionCount
repeat with i = 1 to (actionCount/3)
put value(item ((i*3)-2) of actionList) into actionItem1
put value(item ((i*3)-1) of actionList) into actionItem2
put value(item (i*3) of actionList) into actionItem3
if (rollOver(actionItem1) or rollOver(actionItem2)) then
set the visible of sprite actionItem1 to true
set the visible of sprite actionItem2 to true
set the visible of sprite actionItem3 to true
end if
end repeat
end rollDisplay2
on rollDisplay1 actionList
put the number of items of actionList into actionCount
repeat with i = 1 to (actionCount/2)
put value(item ((i*2)-1) of actionList) into actionItem1
put value(item (i*2) of actionList) into actionItem2
if rollOver(actionItem1) then
set the visible of sprite actionItem1 to true
set the visible of sprite actionItem2 to true
end if
end repeat
end rollDisplay1
on rollOverDisp2 actionList
global dest
put the number of items of actionList into actionCount
repeat with i = 1 to (actionCount/3)
put value(item ((i*3)-2) of actionList) into actionItem1
put value(item ((i*3)-1) of actionList) into actionItem2
put item (i*3) of actionList into actionDest
if rollOver(actionItem1) then
set the visible of sprite actionItem1 to true
set the visible of sprite actionItem2 to true
put actionDest into dest
end if
end repeat
end rollOverDisp2
on rollOverDisp3 actionList
put the number of items of actionList into actionCount
repeat with i = 1 to (actionCount/4)
put value(item ((i*4)-3) of actionList) into actionItem1
put value(item ((i*4)-2) of actionList) into actionItem2
put value(item ((i*4)-1) of actionList) into actionItem3
put value(item (i*4) of actionList) into actionItem4
if rollOver(actionItem1) then
set the visible of sprite actionItem2 to true
set the visible of sprite actionItem3 to true
set the visible of sprite actionItem4 to true
end if
end repeat
end rollOverDisp2
on rollOverInk actionList
global dest
put the number of items of actionList into actionCount
repeat with i = 1 to (actionCount/3)
put value(item ((i*3)-2) of actionList) into actionItem1
put value(item ((i*3)-1) of actionList) into actionItem2
put item (i*3) of actionList into actionDest
if (rollOver(actionItem1) or rollOver(actionItem2)) then
puppetSprite actionItem1, true
set the ink of sprite actionItem1 to 0
set the visible of sprite actionItem2 to true
updateStage
put actionDest into dest
end if
end repeat
end rollOverInk
on inkOut actionList
repeat with i = 1 to the number of items of actionList
put value(item i of actionList) into actionItem
set the ink of sprite actionItem to 38
end repeat
end inkOut